www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\admin_selfmenu.asp

    <!--#include file="admin_inc.asp"-->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v1.0
'****************************************************
viewHead "自定义快捷菜单" & "-" & menuList(3,0)

dim action : action = getForm("action", "get")

Select  case action
	case "modify" : modifyMenu
	case else : main
End Select 
viewFoot

Sub main
	dim menuStr : menuStr=replaceStr(mid(getSelfMenu,2),"|",vbcrlf)
%>
<div id="append_parent"></div>
<div class="container" id="cpcontainer">
<!--当前导航-->
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页&nbsp;&raquo;&nbsp;<%=menuList(5,0)%>&nbsp;&raquo;&nbsp;自定义快捷菜单 ';</script>
 <table class="tb">
<tr class="thead"><th colspan="2">自定义快捷菜单</th></tr>
  <form action="?action=modify" method="post"  >
    <tr>
      <td colspan="2"><textarea  name="menustr" style="width:100%;font-family: Arial, Helvetica, sans-serif;font-size: 14px;" rows="20" dataType="Require" msg="请填写内容"><%=menuStr%></textarea></td>
    </tr>
    <tr>
      <td> <input type="submit" name="Submit" value="修  改" class="btn" /> <input type="button" value="返   回"  class="btn" onClick="javascript:history.go(-1)" /></td><td ></td>
    </tr>
  </form>
</table>
<%
End Sub

Sub modifyMenu
	dim menustr,xmlstr,menuNode,menuNodeArray,singleNodeArray,menuNodeStr
	menustr=trimOuterStr(getForm("menustr","post"),vbcrlf) : menustr=replaceStr(menustr,vbcrlf,"|")
	menuNodeArray=split(menustr,"|")
	for each menuNode in menuNodeArray
		menuNodeStr=menuNodeStr&"<menu>"&vbcrlf
		if not isNul(menuNode) then 
			singleNodeArray=split(menuNode,",")
			menuNodeStr=menuNodeStr&"<name>"&singleNodeArray(0)&"</name>"&vbcrlf&_
									"<link>"&singleNodeArray(1)&"</link>"&vbcrlf
		else
			menuNodeStr=menuNodeStr&"<name></name>"&vbcrlf&_
									"<link></link>"&vbcrlf
		end if
		menuNodeStr=menuNodeStr&"</menu>"&vbcrlf
	next
	xmlstr="<?xml version=""1.0"" encoding=""gbk""?>"&vbcrlf&_
			"<ideacms>"&vbcrlf&_
					"<menulist>"&vbcrlf&_
						menuNodeStr&_
					"</menulist>"&vbcrlf&_
			"</ideacms>"&vbcrlf
	createTextFile  xmlstr,selfMenuXml
	echo "<script>alert('修改成功');top.location.href='index.asp';</script>"
End Sub
%>